Rockford Magazine/Rockford_Magazine_023_19xx_-_de_Side_A.d64/roulette v1.0

Commodore BASIC | 2023-02-26 | 2KB | 84 lines

10 rem roulette
20 poke 53280,5:poke 53281,5
30 print"[147]":print"[144]"
40 print"willkommen bei roulette"
60 nm=int(37*rnd(1))
65 print""nm
70 if nm=0 then110
71 if nm=1 then111
72 if nm=2 then112
73 if nm=3 then113
74 if nm=4 then114
75 if nm=5 then115
76 if nm=6 then116
77 if nm=7 then117
78 if nm=8 then118
79 if nm=9 then119
80 if nm=10then120
81 if nm=11then121
82 if nm=12then122
83 if nm=13then123
84 if nm=14then124
85 if nm=15then125
86 if nm=16then126
87 if nm=17then127
88 if nm=18then128
89 if nm=19then129
90 if nm=20then130
91 if nm=21then131
92 if nm=22then132
93 if nm=23then133
94 if nm=24then134
95 if nm=25then135
96 if nm=26then136
97 if nm=27then137
98 if nm=28then138
99 if nm=29then139
100 if nm=30 then 140
101 if nm=31 then 141
102 if nm=32 then 142
103 if nm=33 then 143
104 if nm=34 then 144
105 if nm=35 then 145
106 if nm=36 then 146
110 print"sero,0":goto 200
111 print"1,rot,ungerade":goto 200
112 print"2,schwarz,gerade":goto 200
113 print"3,rot,ungerade":goto 200
114 print"4,schwarz,gerade":goto 200
115 print"5,rot,ungerade":goto 200
116 print"6,schwarz,gerade":goto 200
117 print"7,rot,ungerade":goto 200
118 print"8,schwarz,gerade":goto 200
119 print"9,rot,ungerade":goto 200
120 print"10,schwarz,gerade":goto 200
121 print"11,schwarz,ungerade":goto200
122 print"12,rot,gerade":goto200
123 print"13,schwarz,ungerade":goto 200
124 print"14,rot,gerade":goto200
125 print"15,schwarz,ungerade":goto 200
126 print"16,rot,gerade":goto 200
127 print"17,schwarz,ungerade":goto200
128 print"18,rot,gerade":goto  200
129 print"19,rot,ungerade":goto 200
130 print"20,schwarz,gerade":goto  200
131 print"21,rot,ungerade":goto 200
132 print"22,schwarz,gerade":goto  200
133 print"23,rot,ungerade":goto 200
134 print"24,schwarz,gerade":goto  200
135 print"25,rot,ungerade":goto 200
136 print"26,schwarz,gerade":goto  200
137 print"27,rot,ungerade":goto 200
138 print"28,schwarz,gerade":goto 200
139 print"29,schwarz,ungerade":goto 200
140 print"30,rot,gerade":goto 200
141 print"31,schwarz,ungerade":goto 200
142 print"32,rot,gerade":goto 200
143 print"33,schwarz,ungerade":goto 200
144 print"34,rot,gerade":goto 200
145 print"35,schwarz,ungerade":goto 200
146 print"36,rot,gerade":goto 200
200 input"noch einmal";a$
210 if a$="j"then 10
220 if a$<>"n"then 200